home *** CD-ROM | disk | FTP | other *** search
Wrap
INI File | 1997-06-19 | 16.9 KB | 343 lines
[script] n0=--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- n1=raw 323:*: { echo 1 -s Finalizado el listado de Canales } n2=raw 341:*: { echo 1 -s $parm2 ha sido invitado a: $parm3 | halt } n3=raw 365:*: { echo 1 -s Finalizado el listado de Links en $parm2 } n4=raw 366:*: { echo 1 -s Finalizado el listado de Nicks en $parm2 | halt } n5=raw 376:*: { echo 1 -s Finalizado el Comando /MOTD | halt } n6=raw 401:* { echo 1 -s No existe ningun nick/canal llamado $parm2 | halt } n7=raw 402:* { echo 1 -s No existe ningun nick/canal llamado $parm2 | halt } n8=raw 403:* { echo 1 -s No existe ningun canal llamado $parm2 | halt } n9=raw 404:* { if $server != $nick echo 1 -s $parms $nick estß desynched de la red de irc | else echo 1 -s No puedes hablar en $parm2 $+ . El canal estß moderado o no acepta mensajes exteriores. | halt } n10=raw 421:*: { echo 1 -s Pusiste un Comando Incorrecto } n11=raw 432:* { echo 1 -s Intentaste utilizar caracteres no admitidos en tu nick... Cambialos. | halt } n12=raw 433:* { echo 1 -s El nick $parm2 estß siendo usado por otra persona... Ponte otro. | wi $parm2 | halt } n13=raw 441:* { if $server != $nick echo 1 -s $parms $nick estß desynched de la red de irc | else echo 1 -s $parm2 no estß en $parm3 | halt } n14=raw 442:* { if $server != $nick echo 1 -s $parms $nick estß desynched de la red de irc | else echo 1 -s No estßs en $parm2 | halt } n15=raw 443:*: { echo 1 -s $parm2 $+ : ya estß en $parm3 } n16=raw 464:*: echo 1 -s ííEscribiste una key incorrecta!! n17=raw 465:* { echo 1 -s Se te ha realizado un K-Line. ( $+ $parms $+ ). Estßs BANEADO de dicho servidor. Intenta entrar por otro. | halt } n18=raw 471:* { echo 1 -s El canal $parm2 estß completo. Esperate a que salga alguien del canal, o a que quiten el lφmite de usuarios. | halt } n19=raw 472:*: { echo 1 -s Caracter Incorrecto: $+ $parm2 } n20=raw 473:* { echo 1 -s El canal $parm2 estß como "solo invitados". Te han de invitar para que puedas entrar | halt } n21=raw 474:* { echo 1 -s Te han BANEADO de $parm2 | halt } n22=raw 475:* { echo 1 -s El canal $parm2 estß con key. Necesitas poner la clave correcta (palabra) despuΘs del nombre del canal | halt } n23=raw 482:* { if $server != $nick {echo 1 -s $parms $nick estß desynched de la red del Irc} n24= else { echo 1 -s No eres un Operador de este canal } n25= halt n26=} n27=raw 443:* { echo 1 -s $parm2 ya estß en $parm3 | halt } n28=raw 481:* { echo 1 -s No tienes autorizaci≤n para realizar esta acci≤n, pues no eres IRCop. | halt } n29=raw 341:* { echo 1 -s $parm2 ha sido invitado al canal $parm3 $+ ... | halt } n30=raw 353:* { echo 1 -s Usuarios en [ $+ $parm3 $+ ]: $parm4* | halt } n31=raw 381:* { echo 1 -s Ya eres IRCOp | halt } n32=raw 472:* { echo 1 -s El modo " $+ $parm2 $+ " no existe... Compruebalo. | halt } n33=raw 405:* { echo 1 -s Estßs en demasiados canales y el servidor no te deja entrar en mßs. | halt } n34=raw 324:* { echo 1 -s El canal " $+ $parm2 $+ " tiene los modos: $parm3* | halt } n35=raw 501:*: { echo 1 -s Este modo de canal no existe. } n36=raw 502:*: { echo 1 -s No puedes cambiar el modo de otros usuarios } n37=raw 999:*: { echo 1 -s Este comando no existe. | halt } n38=raw 436:* { n39= nick $me $+ - n40= echo 1 -s Colision de Nick detectada. Cambiate de nick... n41=} n42=#portscan off n43=raw 211:* { n44= if $left(4,$right(5,$parm2)) isnum { n45= if (%porscan == $null) { set %bestport $left(4,$right(5,$parm2)) | set %bestportval $parm5 + $parm7 | set %porscan active | set %portlist $left(4,$right(5,$parm2)) } n46= else { set %portlist1 %portlist | set %portlist %portlist1 $+ , $+ $left(4,$right(5,$parm2)) | set %curval $parm5 + $parm7 n47= if (%curval < %bestportval) { set %bestport $left(4,$right(5,$parm2)) | set %bestportval $parm5 + $parm7 | set %portlist1 %portlist | unset %portlist1 } n48= unset %curval } } n49= halt n50=} n51=raw 219:*: { n52= if ($parm2 == l) { echo 2 -s Resultado del Escaneo de Puertos del Servidor " $+ $server $+ " | echo 3 -s Los puertos disponibles son:1 %portlist | echo 12 -s El mejor puerto de acceso es:1 %bestport , a %bestportval Kb. | unset %portlist | unset %porscan | unset %bestportval | /.timer 1 20 /unset %bestport | /.timer 1 1 /.disable #portscan | halt } n53=} n54=#portscan end n55=--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- n56=raw 303:*: inc %antidle | halt n57=#nocanal off n58=raw 319:*: { n59= if (%canal1 isin $parm2*) { n60= echo 5 -s $parm2 estß en $parm3* n61= say $chan $parm2 estß en $parm3*. n62= kick $chan $parm2 No queremos en este canal gente de $parm3* !!! n63= } n64= say $chan Estoy harto de esta gente... n65=} n66=#nocanal end n67=#clones off n68=raw 352:* { n69= if ($parm4 !isin %address) { %address = %address $parm4 } n70= if ([ %addr [ $+ [ $parm4 ] ] ] != $null) { n71= if ([ %clone [ $+ [ $parm4 ] ] ] == $null) { n72= set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %addr [ $+ [ $parm4 ] ] ] , $parm6 n73= } n74= else { n75= set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %clone [ $+ [ $parm4 ] ] ] , $parm6 n76= } n77= } n78= else { n79= set % [ $+ [ addr [ $+ [ $parm4 ] ] ] ] $parm6 n80= } n81= halt n82=} n83=raw 315:* { n84= .disable #clones n85= set %a 1 n86= :next n87= set %token $token(%a,32,%address) n88= if (%token == $null) { goto done } | else { n89= if ([ %clone [ $+ [ %token ] ] ] != $null) { n90= inc %total | inc %a n91= if (%option == 1) { write $mircdir $+ raw.txt /echo 5 %chan %total $+ . [ %clone [ $+ [ %token ] ] ] * %token } n92= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan %total $+ . [ %clone [ $+ [ %token ] ] ] * %token } n93= unset [ %clone [ $+ [ %token ] ] ] n94= unset [ %addr [ $+ [ %token ] ] ] n95= goto next n96= } n97= else { unset [ %addr [ $+ [ %token ] ] ] | inc %a | goto next } n98= } n99= :done n100= if (%option == 1) { write $mircdir $+ raw.txt /echo 4 %chan :ì: íFin de la lista! Total: %total :ì: } n101= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan :ì: íFin de la lista! Total: %total :ì: } n102= play -c $me $mircdir $+ raw.txt 300 n103= unset %token | unset %total | unset %a | unset %addr* | unset %clone* | unset %chan | unset %option | halt n104=} n105=#clones end n106=#chan off n107=raw 352:* { n108= if ($parm4 isin %address) { inc %clone } | else { %address = %address $parm4 } n109= if (* isin $parm7) { inc %ircop | set %pig $parm2 } n110= if (@ isin $parm7) { inc %op } | else { inc %nonop } n111= if (+ isin $parm7) { inc %voice } | else { inc %novoice } n112= if (G isin $parm7) { inc %gone } n113= if (H isin $parm7) { inc %here } n114= inc %total n115= halt n116=} n117=raw 315:* { n118= write -c $mircdir $+ raw.txt n119= if (%option == 1) { write $mircdir $+ raw.txt /echo 4 %chan :ì: Estatus de %chan :ì: } n120= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan :ì: Estatus de %chan :ì: } n121= if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %chan Clones: %clone :ì: IRCops: %ircop } n122= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan Clones: %clone :ì: IRCops: %ircop } n123= if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %chan Ops: %op :ì: Non-Ops: %nonop } n124= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan Ops: %op :ì: Non-Ops: %nonop } n125= if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %chan Voice: %voice :ì: Non-Voice: %novoice } n126= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan Voice: %voice :ì: Non-Voice: %novoice } n127= if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %chan Away: %gone :ì: TOTAL: %here } n128= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan Away: %gone :ì: Aquφ: %here } n129= if (%option == 1) { write $mircdir $+ raw.txt /echo 4 %chan :ì: Fin de la lista! Total: %total :ì: } n130= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan :ì: Fin de la lista! Total: %total :ì: } n131= play -c $me $mircdir $+ raw.txt 300 n132= unset %clone | unset %ircop | unset %op | unset %nonop | unset %voice | unset %novoice | unset %gone | unset %option n133= unset %here | unset %address | unset %total | unset %chan | .disable #chan | halt n134=} n135=#chan end n136=#user on n137=raw 301:*: set %gone Sφ | halt n138=raw 311:*: set %user $parm2 ( $+ $parm3 $+ @ $+ $parm4 $+ ) | halt n139=raw 312:*: set %infoserver $parm3 | halt n140=raw 313:*: set %ircop Yes | halt n141=raw 319:*: set %chans $parm3* | halt n142=raw 317:*: halt n143=raw 318:* { n144= write -c $mircdir $+ raw.txt n145= if (%option == 1) { write $mircdir $+ raw.txt /echo 4 %chan :ì: Estatus de %nick :ì: } n146= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan :ì: Estatus de %nick :ì: } n147= if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %chan Usuario: %user } n148= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan Usuario: %user } n149= if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %chan Servidor: %infoserver } n150= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan Servidor: %infoserver } n151= if (%option == 1) { n152= if (%gone == Yes) { write $mircdir $+ raw.txt /echo 2 %chan Away: Sφ } n153= else { write $mircdir $+ raw.txt /echo 2 %chan Away: No } n154= } n155= if (%option == 2) { n156= if (%gone == Yes) { write $mircdir $+ raw.txt /msg %chan Away: Sφ } n157= else { write $mircdir $+ raw.txt /msg %chan Away: No } n158= } n159= if (%option == 1) { n160= if (%ircop == Yes) { write $mircdir $+ raw.txt /echo 2 %chan IRCop: Sφ } n161= else { write $mircdir $+ raw.txt /echo 2 %chan IRCop: No } n162= } n163= if (%option == 2) { n164= if (%ircop == Yes) { write $mircdir $+ raw.txt /msg %chan IRCop: Sφ } n165= else { write $mircdir $+ raw.txt /msg %chan IRCop: No } n166= } n167= if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %chan Canales: %chans } n168= if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %chan $raddress } n169= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan Canales: %chans } n170= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan $raddress } n171= if (%option == 1) { write $mircdir $+ raw.txt /echo 4 %chan :ì: íFin del estatus! :ì: } n172= if (%option == 2) { write $mircdir $+ raw.txt /msg %chan :ì: íFin del estatus! :ì: } n173= .disable #user | unset %ircop | unset %user | unset %gone | unset %nick | unset %chans | unset %chan | unset %option n174= play -c $me $mircdir $+ raw.txt 300 | halt n175=} n176=#user end n177=#filterkick off n178=raw 352:* { n179= if (%fkaddress == 1) { n180= if (%fkip isin $parm3) { n181= if ($parm6 isop $parm2) { halt } n182= if (%fkban == 1) { ban $parm2 $parm6 2 } n183= kick $parm2 $parm6 <^ScriPtteR^> Filter Kick! - %fkip n184= } n185= if (%fkip isin $parm4) { n186= if ($parm6 isop $parm2) { halt } n187= if (%fkban == 1) { ban $parm2 $parm6 2 } n188= kick $parm2 $parm6 <^ScriPtteR^> Filter Kick! - %fkip n189= } n190= } n191= if (%fkclones == 1) { n192= if ($parm4 !isin %address) { %address = %address $parm4 } n193= if ([ %addr [ $+ [ $parm4 ] ] ] != $null) { n194= if ([ %clone [ $+ [ $parm4 ] ] ] == $null) { n195= set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %addr [ $+ [ $parm4 ] ] ] $parm6 n196= } n197= else { n198= set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %clone [ $+ [ $parm4 ] ] ] $parm6 n199= } n200= } n201= else { n202= set % [ $+ [ addr [ $+ [ $parm4 ] ] ] ] $parm6 n203= } n204= } n205= if (%fkircop == 1) { n206= if (* isin $parm7) { n207= if (%fkban == 1) { ban $parm2 $parm6 2 } n208= kick $parm2 $parm6 <^ScriPtteR^> Filter Kick! - Oink... Oink... CERDOOOOO! n209= } n210= } n211= if (%fknonop == 1) { n212= if (@ isin $parm7) { halt } n213= if (%fkban == 1) { ban $parm2 $parm6 2 } n214= kick $parm2 $parm6 <^ScriPtteR^> Filter Kick! - No te mereces ser op! n215= } n216= if (%fkvoice == 1) { n217= if (+ isin $parm7) { n218= if ($parm6 isop $parm2) { halt } n219= if (%fkban == 1) { ban $parm2 $parm6 2 } n220= kick $parm2 $parm6 <^ScriPtteR^> Filter Kick! - Voces... FUERA!! n221= } n222= } n223= if (%fknovoice == 1) { n224= if (+ !isin $parm7) { n225= if ($parm6 isop $parm2) { halt } n226= if (%fkban == 1) { ban $parm2 $parm6 2 } n227= kick $parm2 $parm6 <^ScriPtteR^> Filter Kick! - SOLO CON VOZ!! n228= } n229= } n230= halt n231=} n232=raw 315:* { n233= if (%fkclones == 1) { n234= set %a 1 n235= :next n236= set %token $token(%a,32,%address) n237= if (%token == $null) { goto done } | else { n238= if ([ %clone [ $+ [ %token ] ] ] != $null) { n239= inc %a | set %fclone [ %clone [ $+ [ %token ] ] ] n240= if (%fclone == $null) { goto kickdone } | set %t 1 n241= :kickclone n242= set %ftoken $token(%t,32,%fclone) n243= if (%ftoken == $null) { goto kickdone } | else { n244= if (%ftoken isop %chan) { goto kickdone } n245= if (%fkban == 1) { ban %chan %ftoken 4} n246= kick %chan %ftoken <^ScriPtteR^> Filter Kick! (All Clones | inc %t | goto kickclone n247= } n248= :kickdone n249= unset [ %clone [ $+ [ %token ] ] ] n250= unset [ %addr [ $+ [ %token ] ] ] n251= goto next n252= } n253= else { unset [ %addr [ $+ [ %token ] ] ] | inc %a | goto next } n254= } n255= :done n256= unset %token | unset %a | unset %addr* | unset %clone* | unset %ftoken | unset %t | unset %fkclones n257= } n258= echo 6 <^ScriPtteR^> Filter Kick completo! | unset %fkircop | unset %fknonop | unset %fkvoice | unset %fknovoice n259= unset %fkaddress | unset %fkban | unset %fkip | .disable #filterkick | unset %chan | unset %fclone | halt n260= } n261=} n262=#filterkick end n263=#filterjoin off n264=301:* { n265= if (%fkaway == 1) { n266= if (%fjban == 1) { ban %fchan $parm2 3 } n267= kick %fchan $parm2 <^ScriPtteR^> Filter Kick! (VEN Y REGRESA OTRA VEZ, TONTOLABA!!!) n268= } n269= halt n270=} n271=311:* { n272= if (%fkjoin isin $parm3) { n273= if (%fjban == 1) { ban %fchan $parm2 3 } n274= kick %fchan $parm2 <^ScriPtteR^> Filter Kick! ( $+ %fkjoin | halt n275= } n276= if (%fkjoin isin $parm4) { n277= if (%fjban == 1) { ban %fchan $parm2 3 } n278= kick %fchan $parm2 <^ScriPtteR^> Filter Kick! ( $+ %fkjoin | halt n279= } n280= halt n281=} n282=312:* { n283= if (%fkserver isin $parms) { n284= if (%fjban == 1) { ban %fchan $parm2 3 } n285= kick %fchan $parm2 <^ScriPtteR^> Filter Kick! (get of %fkserver | halt n286= } n287= halt n288=} n289=313:* { n290= if (%fkircop == 1) { n291= if (%fjban == 1) { ban %fchan $parm2 3 } n292= kick %fchan $parm2 <^ScriPtteR^> Filter Kick! (No queremos IRCops en el canal!) | halt n293= } n294= halt n295=} n296=319:* { n297= set %fkc 1 | set %fkp 1 | set %fkparms $parm3* | set %fkph $token(%fkp,32,%fkparms) n298= :incchan n299= set %fkch $token(%fkc,32,%fkchans) n300= if (%fkch == $null) { goto done } n301= if (%fkph == $null) { inc %fkc | goto incchan } n302= if (%fkch isin %fkph) { n303= if (%fjban == 1) { ban %fchan $parm2 3 } n304= kick %fchan $parm2 <^ScriPtteR^> Filter Kick! (Get off %fkch | goto done n305= } n306= else { inc %fkp | goto incparm } n307= :incparm n308= set %fkph $token(%fkp,32,%fkparms) | goto incchan n309= :done n310= unset %fkc | unset %fkp | halt n311=} n312=317:* { n313= if (%fkidle == 1) { n314= if (%fjban == 1) { ban %fchan $parm2 3 } n315= kick %fchan $parm2 <^ScriPtteR^> Filter Kick! (idle | halt n316= } n317= halt n318=} n319=318:*: .disable #filterjoin | halt n320=halt n321=#filterjoin end n322=#ircopscan on n323=352:* { n324= if (%option == 1) { write $mircdir $+ raw.txt /echo 2 %window $parm2 * $+ $parm4 | inc %total | halt } n325= if (%option == 2) { write $mircdir $+ raw.txt /msg %window $parm2 * $+ $parm4 | inc %total | halt } n326=} n327=315:* { n328= if (%option == 1) { write $mircdir $+ raw.txt /echo 4 %window :ì: Fin de la lista! Total: %total :ì: } n329= if (%option == 2) { write $mircdir $+ raw.txt /msg %window :ì: Fin de la lista! Total: %total :ì: } n330= play -c $me $mircdir $+ raw.txt 600 | unset %total | unset %option | unset %window | .disable #ircopscan | halt n331=} n332=#ircopscan end n333=#flooder off n334=352:* { n335= inc %total n336= if ($parm2 == *) { echo 2 -s %total . $parm6 (none) | halt } n337= echo 2 -s %total . $parm6 ( $+ $parm2 $+ ) | halt n338=} n339=315:*: echo 6 -s Fin de la lista! Total: %total | unset %total | .disable #flooder | halt n340=#flooder end